Imports System.Collections.ObjectModel

Public Class WeiDaoApp


#Region "Forms"

    Friend Shared Ficha As FormFicha
    'Friend Shared Sub ShowFicha()
    '    MDIParent.ChildFicha.Show()
    'End Sub
#End Region
    Friend Shared Sub MostrarFicha(ByVal oPaciente As WeiDaoDataSet.PacientesRow)

        MDIParent.ChildFicha.RefreshDatos(oPaciente)
        MDIParent.ChildFicha.Show()
        MDIParent.ChildFicha.Top = 0
        MDIParent.ChildFicha.Left = 0
    End Sub

    Friend Shared Sub Init(ByVal CommandLineParms As ReadOnlyCollection(Of String))

        'MsgBox("Ok")

        Ficha = New FormFicha
    End Sub

    Shared Sub Main()

    End Sub


End Class
